VERSION 5.00
Object = "{626333F0-2712-44F7-AE40-FE533189137E}#6.0#0"; "UnicodeFullControl.ocx"
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   5220
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   6480
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5220
   ScaleWidth      =   6480
   StartUpPosition =   2  'CenterScreen
   Begin UnicodeControl.UniCommonDialog dl 
      Left            =   5730
      Top             =   1065
      _ExtentX        =   423
      _ExtentY        =   423
      DialogTitle     =   "frmMain.frx":0000
      Filename        =   "frmMain.frx":0018
      Filter          =   "frmMain.frx":0030
      FilterIndex     =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin UnicodeControl.UniTitleBar frm_title_Edit_lang 
      Left            =   5085
      Top             =   1965
      _ExtentX        =   661
      _ExtentY        =   609
      Caption         =   "frmMain.frx":0068
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      SetOnTop        =   -1  'True
      Icon            =   "frmMain.frx":00A8
      IconLarge       =   "frmMain.frx":00C0
      DrawBar         =   0   'False
   End
   Begin UnicodeControl.UniButton cmd_load_lang 
      Height          =   435
      Left            =   4665
      TabIndex        =   0
      Top             =   60
      Width           =   1740
      _ExtentX        =   3069
      _ExtentY        =   767
      Caption         =   "frmMain.frx":00D8
      ForecolorSelected=   0
      UniToolTipText  =   "frmMain.frx":010A
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      EnableDoubleClick=   -1  'True
      Picture         =   "frmMain.frx":0122
   End
   Begin UnicodeControl.UniTextBox UniTextBox1 
      Height          =   5070
      Left            =   60
      TabIndex        =   1
      Top             =   75
      Width           =   4515
      _ExtentX        =   7964
      _ExtentY        =   8943
      Alignment       =   0
      UniToolTipText  =   "frmMain.frx":013A
      Appearance      =   0
      BackColor       =   -2147483643
      BorderStyle     =   2
      CaptureEnter    =   0   'False
      CaptureEsc      =   0   'False
      CaptureTab      =   0   'False
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      HideSelection   =   -1  'True
      Locked          =   0   'False
      MaxLength       =   -1
      MouseIcon       =   "frmMain.frx":0152
      MousePointer    =   0
      MultiLine       =   -1  'True
      PasswordChar    =   ""
      RightToLeft     =   0   'False
      ScrollBars      =   3
      Text            =   "frmMain.frx":016E
      UseEvents       =   -1  'True
   End
   Begin UnicodeControl.UniButton cmd_save_lang 
      Height          =   435
      Left            =   4665
      TabIndex        =   2
      Top             =   540
      Width           =   1740
      _ExtentX        =   3069
      _ExtentY        =   767
      Caption         =   "frmMain.frx":018E
      ForecolorSelected=   0
      UniToolTipText  =   "frmMain.frx":01C6
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      EnableDoubleClick=   -1  'True
      Picture         =   "frmMain.frx":01DE
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_load_lang_Click()
    Dim m As New Language
    Dim v As Variant, i As Long
    
    dl.FileName = ""
    dl.Filter = "Languages file (*.lng)|*.lng|All File|*.*|"
    dl.ShowOpen
    If dl.FileName <> "" Then
        m.LoadFile dl.FileName
        v = Split(m.GetListKey, vbCrLf)
        For i = 0 To UBound(v)
            UniTextBox1.Text = UniTextBox1.Text & v(i) & "=" & m.GetValue(v(i)) & vbCrLf
        Next i
    End If
End Sub

Private Sub cmd_save_lang_Click()
    Dim m As New Language
    
    dl.FileName = ""
    dl.Filter = "Languages file (*.lng)|*.lng|"
    dl.ShowSave
    If dl.FileName <> "" Then
        Dim mt() As String
        mt = Split(UniTextBox1.Text, vbCrLf)
        m.WriteLanguage mt
        m.SaveToFile dl.FileName
    End If
End Sub
